home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / disk_utl / advapp / frmopera.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-29  |  4.2 KB  |  143 lines
  1. VERSION 2.00
  2. Begin Form frmOperations 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Disk Operations"
  5.    ClientHeight    =   4110
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1500
  8.    ClientWidth     =   6015
  9.    Height          =   4515
  10.    Left            =   1080
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4110
  13.    ScaleWidth      =   6015
  14.    Top             =   1155
  15.    Width           =   6135
  16.    Begin Frame Frame1 
  17.       BackColor       =   &H00C0C0C0&
  18.       Caption         =   "System Operations:"
  19.       Height          =   2175
  20.       Left            =   360
  21.       TabIndex        =   5
  22.       Top             =   1440
  23.       Width           =   4215
  24.       Begin CommandButton cmdPrompt 
  25.          Caption         =   "DOS Prompt"
  26.          Height          =   375
  27.          Left            =   2160
  28.          TabIndex        =   11
  29.          Top             =   1440
  30.          Width           =   1575
  31.       End
  32.       Begin CommandButton cmdRestart 
  33.          Caption         =   "Restart"
  34.          Height          =   375
  35.          Left            =   2160
  36.          TabIndex        =   9
  37.          Top             =   960
  38.          Width           =   1575
  39.       End
  40.       Begin CommandButton cmdReboot 
  41.          Caption         =   "Reboot"
  42.          Height          =   375
  43.          Left            =   2160
  44.          TabIndex        =   7
  45.          Top             =   480
  46.          Width           =   1575
  47.       End
  48.       Begin Label Label5 
  49.          BackColor       =   &H00C0C0C0&
  50.          Caption         =   "DOS Prompt:"
  51.          Height          =   255
  52.          Left            =   360
  53.          TabIndex        =   10
  54.          Top             =   1500
  55.          Width           =   1695
  56.       End
  57.       Begin Label Label4 
  58.          BackColor       =   &H00C0C0C0&
  59.          Caption         =   "Re-Start Windows:"
  60.          Height          =   255
  61.          Left            =   360
  62.          TabIndex        =   8
  63.          Top             =   1020
  64.          Width           =   1695
  65.       End
  66.       Begin Label Label3 
  67.          BackColor       =   &H00C0C0C0&
  68.          Caption         =   "Reboot System:"
  69.          Height          =   255
  70.          Left            =   360
  71.          TabIndex        =   6
  72.          Top             =   540
  73.          Width           =   1695
  74.       End
  75.    End
  76.    Begin CommandButton cmdCopy 
  77.       Caption         =   "DiskCopy..."
  78.       Height          =   375
  79.       Left            =   2280
  80.       TabIndex        =   4
  81.       Top             =   840
  82.       Width           =   1575
  83.    End
  84.    Begin CommandButton cmdFormat 
  85.       Caption         =   "DiskFormat..."
  86.       Height          =   375
  87.       Left            =   2280
  88.       TabIndex        =   2
  89.       Top             =   240
  90.       Width           =   1575
  91.    End
  92.    Begin CommandButton cmdCancel 
  93.       Caption         =   "Cancel"
  94.       Height          =   375
  95.       Left            =   4440
  96.       TabIndex        =   0
  97.       Top             =   240
  98.       Width           =   1215
  99.    End
  100.    Begin Label Label2 
  101.       BackColor       =   &H00C0C0C0&
  102.       Caption         =   "Copy a Disk:"
  103.       Height          =   255
  104.       Left            =   480
  105.       TabIndex        =   3
  106.       Top             =   900
  107.       Width           =   1695
  108.    End
  109.    Begin Label Label1 
  110.       BackColor       =   &H00C0C0C0&
  111.       Caption         =   "Format a Disk:"
  112.       Height          =   255
  113.       Left            =   480
  114.       TabIndex        =   1
  115.       Top             =   300
  116.       Width           =   1695
  117.    End
  118. Sub cmdCancel_Click ()
  119.     Unload Me
  120. End Sub
  121. Sub cmdCopy_Click ()
  122.     lReturn& = DiskCopy()
  123. End Sub
  124. Sub cmdFormat_Click ()
  125.     lReturn& = DiskFormat()
  126. End Sub
  127. Sub cmdPrompt_Click ()
  128.     lReturn& = SystemWindow(PROMPT)
  129.     If lReturn& < 32 Then
  130.         MsgBox "Error Code - " & lReturn&
  131.     End If
  132. End Sub
  133. Sub cmdReboot_Click ()
  134.     lReturn& = SystemWindow(REBOOT)
  135. End Sub
  136. Sub cmdRestart_Click ()
  137.     lReturn& = SystemWindow(RESTART)
  138. End Sub
  139. Sub Form_Load ()
  140.     Left = (Screen.Width - Width) / 2   ' Center form horizontally.
  141.     Top = (Screen.Height - Height) / 2  ' Center form vertically.
  142. End Sub
  143.